home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Fonts.p < prev    next >
Encoding:
Text File  |  1991-07-01  |  3.5 KB  |  107 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Fonts.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-91
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT FONTS;
  11. INTERFACE
  12. USES TYPES,QUICKDRAW;
  13. CONST
  14.  
  15. { Error Codes }
  16. fmDupStartUpErr = $1B01;  { duplicate FMStartUp call }
  17. fmResetErr = $1B02;  { can't reset the Font Manager }
  18. fmNotActiveErr = $1B03;  { Font Manager not active }
  19. fmFamNotFndErr = $1B04;  { family not found }
  20. fmFontNtFndErr = $1B05;  { font not found }
  21. fmFontMemErr = $1B06;  { font not in memory }
  22. fmSysFontErr = $1B07;  { system font cannot be purgeable }
  23. fmBadFamNumErr = $1B08;  { illegal family number }
  24. fmBadSizeErr = $1B09;  { illegal size }
  25. fmBadNameErr = $1B0A;  { illegal name length }
  26. fmMenuErr = $1B0B;  { fix font menu never called }
  27. fmScaleSizeErr = $1B0C;  { scaled size of font exeeds limits }
  28. fmBadParmErr = $1B0D;
  29.  
  30. { Font Family Numbers }
  31. chicago = $FFFD;
  32. shaston = $FFFE;
  33. systemFont0 = $0000;
  34. systemFont1 = $0001;
  35. newYork = $0002;
  36. geneva = $0003;
  37. monaco = $0004;
  38. venice = $0005;
  39. london = $0006;
  40. athens = $0007;
  41. sanFrancisco = $0008;
  42. toronto = $0009;
  43. cairo = $000B;
  44. losAngeles = $000C;
  45. zapfDingbats = $000D;
  46. bookman = $000E;
  47. helveticaNarrow = $000F;
  48. palatino = $0010;
  49. zapfChancery = $0012;
  50. times = $0014;
  51. helvetica = $0015;
  52. courier = $0016;
  53. symbol = $0017;
  54. taliesin = $0018;
  55. avanteGarde = $0021;
  56. newCenturySchoolbook = $0022;
  57. baseOnlyBit = $0020;  { FamSpecBits }
  58. notBaseBit = $0020;  { FamStatBits }
  59. memOnlyBit = $0001;  { FontSpecBits }
  60. realOnlyBit = $0002;  { FontSpecBits }
  61. anyFamBit = $0004;  { FontSpecBits }
  62. anyStyleBit = $0008;  { FontSpecBits }
  63. anySizeBit = $0010;  { FontSpecBits }
  64. memBit = $0001;  { FontStatBits }
  65. unrealBit = $0002;  { FontStatBits }
  66. apFamBit = $0004;  { FontStatBits }
  67. apVarBit = $0008;  { FontStatBits }
  68. purgeBit = $0010;  { FontStatBits }
  69. notDiskBit = $0020;  { FontStatBits }
  70. notFoundBit = $8000;  { FontStatBits }
  71. dontScaleBit = $0001;  { Scale Word }
  72. TYPE
  73. FontStatRecHndl = ^FontStatRecPtr;
  74. FontStatRecPtr = ^FontStatRec;
  75. FontStatRec = RECORD
  76.     resultID : FontID;
  77.     resultStats : Integer;
  78. END;
  79. PROCEDURE AddFamily ( famNum:Integer; famName:Str255)  ;
  80. PROCEDURE AddFontVar ( fontHandle:FontHndl; newSpecs:Integer)  ;
  81. FUNCTION ChooseFont ( currentID:FontID; famSpecs:Integer) : FontID ;
  82. FUNCTION CountFamilies ( famSpecs:Integer) : Integer ;
  83. FUNCTION CountFonts ( desiredID:FontId; fontSpecs:Integer) : Integer ;
  84. FUNCTION FamNum2ItemID ( famNum:Integer) : Integer ;
  85. FUNCTION FindFamily ( famSpecs:Integer; positionNum:Integer; famName:Str255) : Integer ;
  86. PROCEDURE FindFontStats ( desiredID:FontId; fontSpecs:Integer; positionNum:Integer;VAR resultPtr:FontStatRec)  ;
  87. PROCEDURE FixFontMenu ( menuID:Integer; startingID:Integer; famSpecs:Integer)  ;
  88. PROCEDURE FMBootInit   ;
  89. FUNCTION FMGetCurFID  : FontID ;
  90. FUNCTION FMGetSysFID  : FontID ;
  91. PROCEDURE FMReset   ;
  92. PROCEDURE FMSetSysFont ( newFontID:FontID)  ;
  93. PROCEDURE FMShutDown   ;
  94. PROCEDURE FMStartUp ( userID:Integer; dPageAddr:Integer)  ;
  95. FUNCTION FMStatus  : Boolean ;
  96. FUNCTION FMVersion  : Integer ;
  97. FUNCTION GetFamInfo ( famNum:Integer; famName:Str255) : Integer ;
  98. FUNCTION GetFamNum ( famName:Str255) : Integer ;
  99. PROCEDURE InstallFont ( desiredID:FontID; scaleWord:Integer)  ;
  100. PROCEDURE InstallWithStats ( desiredID:FontID; scaleWord:Integer;VAR resultPtr:FontStatRec)  ;
  101. FUNCTION ItemID2FamNum ( itemID:Integer) : Integer ;
  102. PROCEDURE LoadFont ( desiredID:FontID; fontSpecs:Integer; positionNum:Integer;VAR resultPtr:FontStatRec)  ;
  103. PROCEDURE LoadSysFont   ;
  104. PROCEDURE SetPurgeStat ( theFontID:FontID; purgeStat:Integer)  ;
  105. IMPLEMENTATION
  106. END.
  107.